home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / mac / ZIPPED / DOS / PROGRAMG / GRAD.ZIP / DERS1.FOR < prev    next >
Text File  |  1993-01-06  |  382b  |  12 lines
  1. C ===  Derivating with respect to: 
  2. C     X Y                                                                  
  3. C
  4.       SUBROUTINE ROSENB (X, Y, F)
  5.       IMPLICIT REAL*8 (A-H,O-Z)
  6. C == Rosenbrock's function ==
  7.       F_1=100.0*2*(Y-X*X)**(2-1)*(-X-X)+2*(1-X)**(2-1)*(-1.)
  8.       F_2=100.0*2*(Y-X*X)**(2-1)
  9.       F = 100.0 * (Y - X*X)**2 + (1 - X)**2
  10.       RETURN
  11.       END
  12.